perm filename TOOTA[MUS,LCS]1 blob
sn#400678 filedate 1967-12-04 generic text, type T, neo UTF8
INSTRUMENT TOOTA;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTB;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTC;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTD;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTE;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTF;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTG;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTH;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTI;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
INSTRUMENT TOOTJ;
OSCIL(P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
PLAY;TOOTA 0 .2 A 1000 F2 F1;FINI;